***Replication Code for "Helping the Homeless" Supplementary Online Appendices**
**Kimberly Gross & Julie Wronski -- July 6, 2019**
**TESS and Qualtrics data combined in code**
**Data will have the variables in their original forms plus the renamed and cleaned variables**
**Cleaned variables are used in the code below**
**All analyses confined to respondents who saw at least 26 seconds of the treatment video**

**Supplementary Online Appendix I – Supplementary Methodology Appendix
**Figure A2
**TESS
histogram donate_alt if time_video_page>=26, discrete frequency
(start=0, width=1)
**Qualtrics
histogram donate if total_time_video>=26 & video_work==1 | block==1, discrete frequency
(start=0, width=1)

**Supplementary Online Appendix II – Supplementary Regression Tables
**Table A2 for mean/CI to match Figures 1-4
**TESS
mean symp01 if time_video_page>=26, over(block)
mean policy01 if time_video_page>=26, over(block)
mean donate if time_video_page>=26, over(block)
mean donate01 if time_video_page>=26, over(block)
**Qualtrics
mean sympathy if total_time_video>=26 & video_work==1 | block==1, over(block)
mean govt_help if total_time_video>=26 & video_work==1 | block==1, over(block)
mean donate if total_time_video>=26 & video_work==1| block==1, over(block)
mean donate01 if total_time_video>=26 & video_work==1 | block==1, over(block)


**Table A3: expressed sympathy -- TESS
reg symp01 white_empathy black_noinfo black_empathy if time_video_page>=26, robust
reg symp01 white_empathy black_noinfo black_empathy eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
reg symp01 empathy_treat black_treat if time_video_page>=26, robust
reg symp01 empathy_treat black_treat eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
reg symp01 i.empathy_treat##i.black_treat if time_video_page>=26, robust
reg symp01 i.empathy_treat##i.black_treat eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust


**Table A4: expressed sympathy -- Qualtrics
reg sympathy white_highempth black_lowempth black_highempth control gender if total_time_video>=26 & video_work==1 | block==1, robust
reg sympathy white_highempth black_lowempth black_highempth control gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
reg sympathy empathy_condition race_condition gender if total_time_video>=26 & video_work==1, robust
reg sympathy empathy_condition race_condition gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1, robust
reg sympathy i.empathy_condition##i.race_condition gender if total_time_video>=26 & video_work==1, robust
reg sympathy i.empathy_condition##i.race_condition gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1, robust

**Table A5: government policy support -- TESS
reg policy01 white_empathy black_noinfo black_empathy if time_video_page>=26, robust
reg policy01 white_empathy black_noinfo black_empathy eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
reg policy01 empathy_treat black_treat if time_video_page>=26, robust
reg policy01 empathy_treat black_treat eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
reg policy01 i.empathy_treat##i.black_treat if time_video_page>=26, robust
margins, dydx(empathy_treat) at(black_treat=(0 1))	
reg policy01 i.empathy_treat##i.black_treat eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust


**Table A6: gov't policy support -- Qualtrics
reg govt_help white_highempth black_lowempth black_highempth control gender if total_time_video>=26 & video_work==1 | block==1, robust
reg govt_help white_highempth black_lowempth black_highempth control gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
reg govt_help empathy_condition race_condition gender if total_time_video>=26 & video_work==1, robust
reg govt_help empathy_condition race_condition gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
reg govt_help i.empathy_condition##i.race_condition gender if total_time_video>=26 & video_work==1, robust
margins, dydx(empathy_condition) at(race_condition=(0 1))
reg govt_help i.empathy_condition##i.race_condition gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust


**Table A7: donation behavior -- TESS
reg donate_alt white_empathy black_noinfo black_empathy if time_video_page>=26, robust
reg donate_alt white_empathy black_noinfo black_empathy eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
reg donate_alt empathy_treat black_treat if time_video_page>=26, robust
reg donate_alt i.empathy_treat##i.black_treat if time_video_page>=26, robust
logit donate01 white_empathy black_noinfo black_empathy if time_video_page>=26, robust
logit donate01 white_empathy black_noinfo black_empathy eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
logit donate01 empathy_treat black_treat if time_video_page>=26, robust
logit donate01 i.empathy_treat##i.black_treat if time_video_page>=26, robust


**Table A8: donation behavior -- Qualtrics
reg donate white_highempth black_lowempth black_highempth control gender if total_time_video>=26 & video_work==1 | block==1, robust
reg donate white_highempth black_lowempth black_highempth control rr_total partyid01 ideology01 indiv gender age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
reg donate empathy_condition race_condition gender if total_time_video>=26 & video_work==1, robust
reg donate i.empathy_condition##i.race_condition gender if total_time_video>=26 & video_work==1, robust
logit donate01 white_highempth black_lowempth black_highempth control gender if total_time_video>=26 & video_work==1 | block==1, robust
margins, dydx(white_highempth)
margins, dydx(black_highempth)
logit donate01 white_highempth black_lowempth black_highempth control rr_total partyid01 ideology01 indiv gender age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
logit donate01 empathy_condition race_condition gender if total_time_video>=26 & video_work==1, robust
logit donate01 i.empathy_condition##i.race_condition gender if total_time_video>=26 & video_work==1, robust
margins, dydx(empathy_condition) at(race_condition=(0 1))


**Table A9: racial resentment X treatments on donation behavior -- Qualtrics
reg donate c.rr_total##i.block gender if total_time_video>=26 & video_work==1 | block==1, robust
reg donate c.rr_total##i.block gender partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
logit donate01 c.rr_total##i.block gender if total_time_video>=26 & video_work==1 | block==1, robust
logit donate01 c.rr_total##i.block gender partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust

**Table A9a: racial resentment X treatments on donation behavior -- Qualtrics 
**White Information as the excluded category
reg donate c.rr_total##i.block_winfo gender if total_time_video>=26 & video_work==1 | block==1, robust
margins, dydx(block_winfo) at(rr_total=(0 1))
logit donate01 c.rr_total##i.block_winfo gender if total_time_video>=26 & video_work==1 | block==1, robust
margins, dydx(block_winfo) at(rr_total=(0 1))


**Table A10: empathetic ability X treatments on donation behavior -- TESS
reg donate_alt c.eyes_total01##i.treatment if time_video_page>=26, robust
reg donate_alt c.eyes_total01##i.treatment party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
logit donate01 c.eyes_total01##i.treatment if time_video_page>=26, robust
logit donate01 c.eyes_total01##i.treatment party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust

**Table A10a: empathetic ability X treatments on donation behavior -- TESS
**Black No Information as the excluded category	
reg donate_alt c.eyes_total01##i.treatment_bnoinfo if time_video_page>=26, robust
margins, dydx(treatment_bnoinfo) at(eyes_total01=(0 1))
logit donate01 c.eyes_total01##i.treatment_bnoinfo if time_video_page>=26, robust


***Supplementary Online Appendix III -- Alternative Model Specifications
**Table A11: expressed sympathy -- TESS (repliaction of Table A3)
ologit symp01 white_empathy black_noinfo black_empathy if time_video_page>=26, robust
ologit symp01 white_empathy black_noinfo black_empathy eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
ologit symp01 empathy_treat black_treat if time_video_page>=26, robust
ologit symp01 empathy_treat black_treat eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
ologit symp01 i.empathy_treat##i.black_treat if time_video_page>=26, robust
ologit symp01 i.empathy_treat##i.black_treat eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust

**Table A12: expressed sympathy -- Qualtrics (replication of Table A4)
ologit sympathy white_highempth black_lowempth black_highempth control gender if total_time_video>=26 & video_work==1 | block==1, robust
ologit sympathy white_highempth black_lowempth black_highempth control gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
ologit sympathy empathy_condition race_condition gender if total_time_video>=26 & video_work==1, robust
ologit sympathy empathy_condition race_condition gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1, robust
ologit sympathy i.empathy_condition##i.race_condition gender if total_time_video>=26 & video_work==1, robust
ologit sympathy i.empathy_condition##i.race_condition gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1, robust

**Table A13: government policy support -- TESS (replication of Table A5)
ologit policy01 white_empathy black_noinfo black_empathy if time_video_page>=26, robust
ologit policy01 white_empathy black_noinfo black_empathy eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
ologit policy01 empathy_treat black_treat if time_video_page>=26, robust
ologit policy01 empathy_treat black_treat eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
ologit policy01 i.empathy_treat##i.black_treat if time_video_page>=26, robust
ologit policy01 i.empathy_treat##i.black_treat eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust

**Table A14: donation behavior -- Qualtrics (replication of Table A8)
ologit donate white_highempth black_lowempth black_highempth control gender if total_time_video>=26 & video_work==1 | block==1, robust
ologit donate white_highempth black_lowempth black_highempth control rr_total partyid01 ideology01 indiv gender age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
ologit donate empathy_condition race_condition gender if total_time_video>=26 & video_work==1, robust
ologit donate empathy_condition race_condition gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1, robust
ologit donate i.empathy_condition##i.race_condition gender if total_time_video>=26 & video_work==1, robust
ologit donate i.empathy_condition##i.race_condition gender rr_total partyid01 ideology01 indiv age income attend01 charity if total_time_video>=26 & video_work==1, robust

**Table A15: donation behavior with dichotomous donate half or more DV -- TESS (alternate specification of Table A7)
logit donate_halfplus white_empathy black_noinfo black_empathy if time_video_page>=26, robust
logit donate_halfplus white_empathy black_noinfo black_empathy eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
logit donate_halfplus empathy_treat black_treat if time_video_page>=26, robust
logit donate_halfplus i.empathy_treat##i.black_treat if time_video_page>=26, robust

**Table A16: donation behavior with dichotomous donate full amount or otherwise DV -- TESS (alternate specification of Table A7)
logit donate_all white_empathy black_noinfo black_empathy if time_video_page>=26, robust
logit donate_all white_empathy black_noinfo black_empathy eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
logit donate_all empathy_treat black_treat if time_video_page>=26, robust
logit donate_all i.empathy_treat##i.black_treat if time_video_page>=26, robust

**Table A17: donation behavior with categorical donate none, half, or all DV -- TESS (alternate specification of Table A7)
ologit donate_3cat white_empathy black_noinfo black_empathy if time_video_page>=26, robust
ologit donate_3cat white_empathy black_noinfo black_empathy eyes_total party ideo attend01 ppage educ gender income01 obama_race charity if time_video_page>=26, robust
ologit donate_3cat empathy_treat black_treat if time_video_page>=26, robust
ologit donate_3cat i.empathy_treat##i.black_treat if time_video_page>=26, robust

**Table A18: donation behavior with dichotomous donate half or more DV -- Qualtrics (alternate specification of Table A8)
logit donate_halfplus white_highempth black_lowempth black_highempth control gender if total_time_video>=26 & video_work==1 | block==1, robust
logit donate_halfplus white_highempth black_lowempth black_highempth control rr_total partyid01 ideology01 indiv gender age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
logit donate_halfplus empathy_condition race_condition gender if total_time_video>=26 & video_work==1, robust
logit donate_halfplus i.empathy_condition##i.race_condition gender if total_time_video>=26 & video_work==1, robust

**Table A19: donation behavior with dichotomous donate full amount or otherwise DV -- Qualtrics (alternate specification of Table A8)
logit donate_all white_highempth black_lowempth black_highempth control gender if total_time_video>=26 & video_work==1 | block==1, robust
logit donate_all white_highempth black_lowempth black_highempth control rr_total partyid01 ideology01 indiv gender age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
logit donate_all empathy_condition race_condition gender if total_time_video>=26 & video_work==1, robust
logit donate_all i.empathy_condition##i.race_condition gender if total_time_video>=26 & video_work==1, robust

**Table A20: donation behavior with categorical donate none, half, or all DV -- Qualtrics (alternate specification of Table A8)
ologit donate_3cat white_highempth black_lowempth black_highempth control gender if total_time_video>=26 & video_work==1 | block==1, robust
ologit donate_3cat white_highempth black_lowempth black_highempth control rr_total partyid01 ideology01 indiv gender age income attend01 charity if total_time_video>=26 & video_work==1 | block==1, robust
ologit donate_3cat empathy_condition race_condition gender if total_time_video>=26 & video_work==1, robust
ologit donate_3cat i.empathy_condition##i.race_condition gender if total_time_video>=26 & video_work==1, robust
